function[resultados_vel]=tabla_resultados_vel
principio='D:\proyecto\escritores\BD100escritores\';
for escritor=1:100
    datos=zeros(1,34);
    datos2=zeros(1,10);
    load res100;
    for t=1:10
        for w=1:34
            direccion1=strcat(strcat(principio,num2str(escritor)),'\NORMAL\',strcat('muestra',num2str(t)),strcat('\p',num2str(w)),'.bmp');
            xbin=binarizacion(direccion1);
            angulo=mean(resultados{escritor}(2,:));
            [bb,B,N]=region_cerrada(xbin);
            [topline,upperbaseline,downbaseline,downline,ancho_cuerpo]=lineas_palabra(xbin);
            [vel]=velocidad2(B,N,ancho_cuerpo,topline,downline,xbin,angulo);
            datos(1,w)=vel;
        end
         
        datos2(1,t)=mean(datos(1,:));
        
        datos=zeros(1,34);
    end
    resultados_vel{1,escritor}=datos2;
    datos2=zeros(1,10);
end   
save 'res_vel2.mat' resultados_vel